home *** CD-ROM | disk | FTP | other *** search
/ Belgian Amiga Club - ADF Collection / BS1 part 34.zip / BS1 part 34 / GFA basic training.adf / Sound / MOTORKNATTERN.LST < prev    next >
File List  |  1989-06-01  |  431b  |  30 lines
  1. ' Auspuffrohr
  2. @init
  3. ' Voreinstellung wie "Alarm"
  4. b1|=1
  5. b2|=254
  6. '
  7. @puls
  8. '
  9. FOR i%=1 TO 10
  10.   freq%=10
  11.   zeit=0.5
  12.   SOUND freq%,zeit,255,0
  13. NEXT i%
  14. END
  15. '
  16. PROCEDURE init
  17.   DIM wert&(255)
  18. RETURN
  19. PROCEDURE puls
  20.   FOR i%=0 TO b1|
  21.     wert&(i%)=-127
  22.   NEXT i%
  23.   FOR i%=b1| TO b2|
  24.     wert&(i%)=127
  25.   NEXT i%
  26.   ' Die dritte FOR NEXT-Schleife entfällt deswegen, da die obere
  27.   ' Pulswellenbreite schon bis 254 lang ist
  28.   WAVE 0,wert&()
  29. RETURN
  30.